Public Sub foo() 

    If .CellSet(0) _
		.Value = 0 Then

	End If
	
End Sub